home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat66 / rtrequest / demo < prev    next >
Encoding:
Text File  |  1994-05-11  |  4.7 KB  |  132 lines
  1.  
  2. ; #
  3. ; # Demo de script pour RTRequest v1.2
  4. ; #
  5.  
  6. Failat    30        ; Faut pas que le scripts s'interrompt des que
  7.                 ; RTRequest envoi un WARN.
  8.  
  9.  
  10. Resident c:RTRequest    ; On rend le programme résident
  11.  
  12.  
  13. SetEnv    choix        ; On crée des variables
  14. SetEnv    Age
  15. SetEnv     Nom
  16.  
  17.  
  18.     RTRequest    REQUEST    "" "RTRequest v1.2*N*NScript de démonstration en AmigaDOS" "On y va|Abandonne" >ENV:choix
  19.  
  20.     ; Si l'utilisateur a appuyé sur le dernier bouton
  21.     ; ***********************************************
  22.     if $choix EQ "0" 
  23.         RTRequest REQUEST "" "Bin on continue quand même !" "Non mais.." >NIL:
  24.     endif
  25.  
  26.             
  27. Lab Debut        ; Label 'Debut'
  28.  
  29.     ; Requester d'affichage (on stocke pas le retour -> '>NIL:')    
  30.     ; **********************************************************
  31.     RTRequest    REQUEST    "" "RTRequest vous permet d'accèder*N*Naux superbes requesters de la 'reqtools.library'*N*Nà partir de l'AmigaDOS !" "Cool !" >NIL:
  32.  
  33.  
  34.     RTRequest    REQUEST    "" "RTRequest tiens compte des préférences*N*Nque vous avez réglez avec ReqToolsPrefs" "Ah !" >NIL:
  35.  
  36.     RTRequest   REQUEST    "RTRequest Démo <-- T I T R E" "Vous pouvez mettre un titre à vos requesters !" "Ouah" >NIL:
  37.  
  38.     RTRequest     REQUEST    "RTRequest Démo" "Ou encore mettre plein de boutons :" 1|2|3|4|5|6|7|8|9|0 >ENV:choix
  39.  
  40.     ; On affiche aussi le retour de la fonction précédente ($choix)
  41.     ; *************************************************************
  42.     RTRequest    REQUEST     "RTRequest Démo" "Vous avez clické sur '$choix'." "Oui !" >NIL:
  43.  
  44.     RTRequest    REQUEST     "RTRequest Démo" "On peut aussi activé un bouton par défaut !" "Ah oui ?|Lequel ?|Ah bon !" 2 >NIL:
  45.  
  46.     RTRequest    REQUEST     "RTRequest Démo" "Ou mettre des raccourcis claviers :" "Choix n°_1|Choix n°_2|C_hoix n°x|_Abandonne" 2 >NIL:
  47.  
  48.     RTRequest    REQUEST    "RTRequest Démo" "Vous avez accès à des requesters de fichiers" "_Normal|_Multi-Sélection" 0 >ENV:choix
  49.  
  50.  
  51.     ; Si appui sur le 1er bouton => Requester de fichier normal
  52.     ; *********************************************************
  53.     if $choix EQ "1"
  54.  
  55.         RTRequest FILEREQUEST "RTRequest Démo - Sélection" "RAM:" "" #? >ENV:choix
  56.         
  57.         if NOT WARN        ; Si l'utilisateur n'a pas appuyé sur le gadget de fermeture
  58.                     ; **********************************************************
  59.             RTRequest    REQUEST    "RTRequest Démo" Vous avez sélectionné $choix "_Merci" 0 >NIL:
  60.         else            ; Si l'utilisateur a appuyé sur le gadget de fermeture
  61.                     ; ****************************************************
  62.             RTRequest    REQUEST    "RTRequest Démo" "Vous n'avez rien sélectionné !" _Vivi 0 >NIL:
  63.         endif
  64.  
  65.     else        ; Appui sur le 2eme bouton => Requester de multiple fichier
  66.             ; *********************************************************
  67.  
  68.         RTRequest MFILEREQUEST "RTRequest Démo - Sélection" >ENV:choix
  69.  
  70.         if NOT WARN        ; Si l'utilisateur n'a pas appuyé sur le gadget de fermeture
  71.                     ; **********************************************************
  72.             RTRequest    REQUEST    "RTRequest Démo" "Vous avez sélectionné des fichiers" "Merci" 0 >NIL:
  73.         else            ; Si l'utilisateur a appuyé sur le gadget de fermeture
  74.                     ; ****************************************************
  75.             RTRequest    REQUEST    "RTRequest Démo" "Vous n'avez rien sélectionné !" _Vivi 0 >NIL:
  76.         endif
  77.     endif
  78.     
  79.  
  80.     RTRequest    REQUEST    "RTRequest Démo" "Voyons encore d'autres REQUESTERS" "_Ok !" 0 >NIL:
  81.     
  82.  
  83. Lab Age                ; LABEL 'Age'
  84.  
  85.  
  86.     RTRequest    GETNUMBER    "Ton age ?" "" 0 80 >ENV:Age
  87.     
  88.     if WARN            ; Si l'utilisateur a appuyé sur le gadget de fermeture
  89.                     ; ****************************************************
  90.         RTRequest    REQUEST "RTRequest Démo" "Vous devez rentrer votre âge !" "_Ok !" 0 >NIL:
  91.         Skip Age BACK    ; On retourne au Label Age
  92.     endif                ; ************************
  93.  
  94. Lab Nom                ; LABEL 'Nom'
  95.  
  96.  
  97.     RTRequest    GETSTRING    "Ton prénom ?" >ENV:Nom
  98.  
  99.     if WARN            ; Si l'utilisateur a appuyé sur le gadget de fermeture
  100.                     ; ****************************************************
  101.         RTRequest    REQUEST "RTRequest Démo" "Vous devez rentrer votre prénom !" "_Ok !" 0 >NIL:
  102.         Skip Nom BACK    ; On retourne au label 'Nom'
  103.     endif                ; **************************
  104.     
  105.  
  106.     RTRequest    REQUEST    "RTRequest Démo" "Alors tu t'appelles '$Nom' et tu as $Age ans !" "_Ok ?" 0 >NIL:
  107.  
  108.     RTRequest     REQUEST    "RTRequest Démo" "Et en plus ca se programme facilement en AmigaDOS !" "_Cool ?" 0 >NIL:
  109.  
  110.     RTRequest    REQUEST    "RTRequest Démo" "La demo est fini" "_Recommencer|_Sortir" 1 >ENV:choix
  111.     
  112.     if NOT WARN            ; Si l'utilisateur n'a pas appuyé sur le dernier gadget
  113.                     ; *****************************************************
  114.         skip    Debut BACK    ; On remonte au label Debut
  115.     endif
  116.  
  117.  
  118. UnSetEnv choix    ; On libère la variable
  119. UnSetEnv Age
  120. UnSetEnv Nom
  121.  
  122. c:Resident c:RTRequest REMOVE
  123.  
  124.  
  125. ; ATTENTION :
  126. ; ***********
  127. ;
  128. ; *    Si vous ne voulez pas de retour de la part de RTRequest
  129. ;    faite : RTRequest {arguments} >NIL:
  130. ; *    N'oublié surtout pas de libérer la mémoire (unsetenv) risque d'erreur ou plantage du système
  131. ;
  132.